home *** CD-ROM | disk | FTP | other *** search
/ Your Web Site Creator / Your Web Site Creator.iso / WebSite / data1.cab / Program_Executable_Files / scripts / HOMEPAGE.DAT < prev    next >
Encoding:
Text File  |  1999-01-13  |  1.8 KB  |  100 lines
  1. ; HOMEPAGE.DAT            Builds the home page
  2. [BuildHomePage]
  3. SETTEMP template_use = "Family Homepage"
  4.  
  5. IF istopic( pageMeetFamily ) = NN
  6.  SET pageMeetFamily = ""
  7. ENDIF
  8.  
  9. IF istopic( pageFavorites ) = NN
  10.  SET pageFavorites = ""
  11. ENDIF
  12.  
  13. IF istopic( pagePastimes ) = NN
  14.  SET pagePastimes = ""
  15. ENDIF
  16.  
  17. IF istopic( pageNews ) = NN
  18.  SET pageNews = ""
  19. ENDIF
  20.  
  21. IF istopic( pageNotions ) = NN
  22.  SET pageNotions = ""
  23. ENDIF
  24.  
  25. IF istopic( pageMailBook ) = NN
  26.  SET pageMailBook = ""
  27. ELSE
  28.  SETTEMP template_use = template_use," with Mail Book"
  29. ENDIF
  30.  
  31.  
  32. SETTEMP L1 = pageMeetFamily
  33. SETTEMP L2 = pageFavorites
  34. SETTEMP L3 = pagePastimes
  35. SETTEMP L4 = pageNews
  36. SETTEMP L5 = pageNotions
  37. SETTEMP L6 = pageLinks
  38. SETTEMP L7 = "mailto:",email
  39. SETTEMP L8 = pageMailBook
  40. SETTEMP L9 = ""
  41.  
  42. COPY P1 = mf_pix
  43. COPY P2 = fav_pix
  44. COPY P3 = pas_pix
  45. COPY P4 = nws_pix
  46. COPY P5 = not_pix
  47. COPY P6 = lnk_pix
  48. SETTEMP P7 = ""
  49. SETTEMP P8 = ""
  50. SETTEMP P9 = ""
  51.  
  52. ; compact the fields
  53. SETTEMP fieldRootName = "L"
  54. SETTEMP reflectRootName = "P"
  55. SETTEMP nTotalFields = 9
  56. GOSUB CompactFields
  57.  
  58. SETTYPE familyPhoto = picture
  59. SETSCALE familyPhoto = 300 300
  60.  
  61. SETTYPE P1 = picture
  62. SETTYPE P2 = picture
  63. SETTYPE P3 = picture
  64. SETTYPE P4 = picture
  65. SETTYPE P5 = picture
  66. SETTYPE P6 = picture
  67.  
  68.  
  69. BUILDTOPIC "##Contents"
  70. REPLACE pageContents
  71. template_use
  72. none     ; backdrop
  73. 0        ; level
  74. 8        ; links
  75. L1       ; topic for 1st link
  76. L2       ; 2nd link
  77. L3       ; 3rd link
  78. L4       ; 4th link
  79. L5       ; 5th link
  80. L6       ; 6th link
  81. L7       ;Email link on home page
  82. L8       ;Email directory
  83. 11       ; # of fields in template
  84. "The ",familylastname," Family"
  85. familyPhoto
  86. Placard
  87. email
  88. headerbar
  89. P1
  90. P2
  91. P3
  92. P4
  93. P5
  94. P6
  95.  
  96. SET pageContents = topicfromsymbolic( "##Contents" )
  97.  
  98. PROJECTSETTINGS
  99. CONTENTSTOPIC pageContents
  100.